home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 16 / CU Amiga Magazine's Super CD-ROM 16 (1997-10-16)(EMAP Images)(GB)[!][issue 1997-11].iso / CUCD / Graphics / Ghostscript / source / gdevvglb.c < prev    next >
C/C++ Source or Header  |  1997-06-28  |  10KB  |  390 lines
  1. /* Copyright (C) 1992, 1993, 1994, 1996, 1997 Aladdin Enterprises.  All rights reserved.
  2.   
  3.   This file is part of Aladdin Ghostscript.
  4.   
  5.   Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6.   or distributor accepts any responsibility for the consequences of using it,
  7.   or for whether it serves any particular purpose or works at all, unless he
  8.   or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9.   License (the "License") for full details.
  10.   
  11.   Every copy of Aladdin Ghostscript must include a copy of the License,
  12.   normally in a plain ASCII text file named PUBLIC.  The License grants you
  13.   the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14.   under certain conditions described in the License.  Among other things, the
  15.   License requires that the copyright notice and this notice be preserved on
  16.   all copies.
  17. */
  18.  
  19. /*
  20.  * gdevvglb.c
  21.  *
  22.  * This is a driver for 386 PCs using VGALIB for graphics on the console
  23.  * display.
  24.  *
  25.  * Written by Sigfrid Lundberg, siglun@euler.teorekol.lu.se.
  26.  * Modified by Erik Talvola, talvola@gnu.ai.mit.edu
  27.  * Updated 9/28/96 by L. Peter Deutsch, ghost@aladdin.com: allow setting
  28.  *   the display mode as a device parameter.
  29.  * Updated 2/13/97 by ghost@aladdin.com: make the device identify itself
  30.  *   as a page device.
  31.  * Updated 5/2/97 by ghost@aladdin.com: copy_mono computed some parameters
  32.  *   before doing fit_copy.
  33.  * Update 1997-06-28 by ghost@aladdin.com: get_bits wasn't implemented.
  34.  */
  35.  
  36. #include "gx.h"
  37. #include "gserrors.h"
  38. #include "gsparam.h"
  39. #include "gxdevice.h"
  40. #include "gdevpccm.h"
  41.  
  42. #include <errno.h>
  43. #include <vga.h>
  44.  
  45. typedef struct gx_device_vgalib {
  46.   gx_device_common;
  47.   int display_mode;
  48. } gx_device_vgalib;
  49.  
  50. #define vga_dev ((gx_device_vgalib *)dev)
  51.  
  52. #define XDPI   60      /* to get a more-or-less square aspect ratio */
  53. #define YDPI   60
  54.  
  55. #ifndef A4 /*Letter size*/
  56. #define YSIZE (20.0 * YDPI / 2.5)
  57. #define XSIZE (8.5 / 11)*YSIZE /* 8.5 x 11 inch page, by default */
  58. #else                       /* A4 paper */
  59. #define XSIZE 8.27
  60. #define YSIZE 11.69
  61. #endif
  62.  
  63. private dev_proc_open_device(vgalib_open);
  64. private dev_proc_close_device(vgalib_close);
  65. private dev_proc_map_rgb_color(vgalib_map_rgb_color);
  66. private dev_proc_map_color_rgb(vgalib_map_color_rgb);
  67. private dev_proc_fill_rectangle(vgalib_fill_rectangle);
  68. private dev_proc_tile_rectangle(vgalib_tile_rectangle);
  69. private dev_proc_copy_mono(vgalib_copy_mono);
  70. private dev_proc_copy_color(vgalib_copy_color);
  71. private dev_proc_get_bits(vgalib_get_bits);
  72. private dev_proc_get_params(vgalib_get_params);
  73. private dev_proc_put_params(vgalib_put_params);
  74.  
  75. gx_device_vgalib far_data gs_vgalib_device = {
  76.     std_device_std_body(gx_device_vgalib, 0, "vgalib",
  77.       0, 0, 1, 1),
  78.     { vgalib_open,
  79.       NULL,            /* get_initial_matrix */
  80.       NULL,            /* sync_output */
  81.       NULL,            /* output_page */
  82.       vgalib_close,
  83.       vgalib_map_rgb_color,
  84.       vgalib_map_color_rgb,
  85.       vgalib_fill_rectangle,
  86.       vgalib_tile_rectangle,
  87.       vgalib_copy_mono,
  88.       vgalib_copy_color,
  89.       NULL,            /* draw_line (obsolete) */
  90.       vgalib_get_bits,
  91.       vgalib_get_params,
  92.       vgalib_put_params,
  93.       NULL,            /* map_cmyk_color */
  94.       NULL,            /* get_xfont_procs */
  95.       NULL,            /* get_xfont_device */
  96.       NULL,            /* map_rgb_alpha_color */
  97.       gx_page_device_get_page_device
  98.     },
  99.     -1            /* display_mode */
  100. };
  101.  
  102. private int
  103. vgalib_open(gx_device *dev)
  104. {
  105.     int VGAMODE = vga_dev->display_mode;
  106.     int width = dev->width, height = dev->height;
  107.  
  108.     if ( VGAMODE == -1 )
  109.       VGAMODE = vga_getdefaultmode();
  110.     if ( VGAMODE == -1 )
  111.       vga_setmode(G640x480x16);
  112.     else
  113.       vga_setmode(VGAMODE);
  114.     vga_clear();
  115.     if ( width == 0 )
  116.       width = vga_getxdim() + 1;
  117.     if ( height == 0 )
  118.       height = vga_getydim() + 1;
  119.  
  120.   /*vgalib provides no facilities for finding out aspect ratios*/
  121.     if ( dev->y_pixels_per_inch == 1 )
  122.     {
  123.     dev->y_pixels_per_inch = height / 11.0;
  124.     dev->x_pixels_per_inch = dev->y_pixels_per_inch;
  125.     }
  126.    gx_device_set_width_height(dev, width, height);
  127.  
  128.                     /* Find out if the device supports color */
  129.                   /* (default initialization is monochrome). */
  130.                 /* We only recognize 16-color devices right now. */
  131.     if ( vga_getcolors() > 1 )
  132.       { int index;
  133.  
  134.     static const gx_device_color_info vgalib_16color = dci_pc_4bit;
  135.     dev->color_info = vgalib_16color;
  136.  
  137.     for ( index = 0; index < 16; ++index )
  138.       { gx_color_value rgb[3];
  139.         (*dev_proc(dev, map_color_rgb))(dev, (gx_color_index)index, rgb);
  140. #define cv2pv(cv) ((cv) >> (gx_color_value_bits - 8))
  141.         vga_setpalette(index, cv2pv(rgb[0]), cv2pv(rgb[1]), cv2pv(rgb[2]));
  142. #undef cv2pv
  143.       }
  144.       }
  145.  
  146.   return 0;
  147. }
  148.  
  149. private int
  150. vgalib_close(gx_device *dev)
  151. {
  152.     vga_setmode(TEXT);
  153.     return 0;
  154. }
  155.  
  156. private gx_color_index
  157. vgalib_map_rgb_color(gx_device *dev, gx_color_value red,
  158.              gx_color_value green, gx_color_value blue)
  159. {
  160.     return pc_4bit_map_rgb_color(dev, red, green, blue);
  161. }
  162.  
  163. private int
  164. vgalib_map_color_rgb(gx_device *dev, gx_color_index index,
  165.             unsigned short rgb[3])
  166. {
  167.     return pc_4bit_map_color_rgb(dev, index, rgb);
  168. }
  169.  
  170. private int
  171. vgalib_tile_rectangle(gx_device *dev, const gx_tile_bitmap *tile,
  172.               int x, int y, int w, int h, gx_color_index czero,
  173.               gx_color_index cone, int px, int py)
  174. {
  175.     if ( czero != gx_no_color_index && cone != gx_no_color_index )
  176.     {
  177.     vgalib_fill_rectangle(dev, x, y, w, h, czero);
  178.     czero = gx_no_color_index;
  179.     }
  180.     return gx_default_tile_rectangle(dev, tile, x, y, w, h, czero, cone, px,
  181. py);
  182. }
  183.  
  184. private int
  185. vgalib_fill_rectangle(gx_device *dev, int x, int y, int w, int h,
  186.               gx_color_index color)
  187. {    int i, j;
  188.  
  189.     fit_fill(dev, x, y, w, h);
  190.     vga_setcolor((int)color);
  191.     if ( (w | h) > 3 )
  192.       { /* Draw larger rectangles as lines. */
  193.         if ( w > h )
  194.           for ( i = y; i < y + h; ++i )
  195.         vga_drawline(x, i, x + w - 1, i);
  196.         else
  197.           for ( j = x; j < x + w; ++j )
  198.         vga_drawline(j, y, j, y + h - 1);
  199.       }
  200.     else
  201.       { /* Draw small rectangles point-by-point. */
  202.         for(i=y;i<y+h;i++)
  203.           for(j=x;j<x+w;j++)
  204.         vga_drawpixel(j,i);
  205.       }
  206.     return 0;
  207. }
  208.  
  209. private int
  210. vgalib_copy_mono(gx_device *dev, const byte *base, int sourcex,
  211.          int raster, gx_bitmap_id id, int x, int y, int width,
  212.          int height, gx_color_index zero, gx_color_index one)
  213. {
  214.     const byte *ptr_line;
  215.     int left_bit, dest_y, end_x;
  216.     int invert = 0;
  217.     int color;
  218.  
  219.     fit_copy(dev, base, sourcex, raster, id, x, y, width, height);
  220.     ptr_line = base + (sourcex >> 3);
  221.     left_bit = 0x80 >> (sourcex & 7);
  222.     dest_y = y, end_x = x + width;
  223.  
  224.     if ( zero == gx_no_color_index )
  225.       {
  226.     if ( one == gx_no_color_index )
  227.       return 0;
  228.     color = (int)one;
  229.       }
  230.     else
  231.       {
  232.     if ( one == gx_no_color_index )
  233.       {
  234.         color = (int)zero;
  235.         invert = -1;
  236.       }
  237.     else
  238.       {                   /* Pre-clear the rectangle to zero */
  239.         vgalib_fill_rectangle(dev,x,y,width,height,zero);
  240.         color = (int)one;
  241.       }
  242.       }
  243.  
  244.     vga_setcolor(color);
  245.     while( height-- )
  246.     {                       /* for each line */
  247.     const byte *ptr_source = ptr_line;
  248.     register int dest_x = x;
  249.     register int bit = left_bit;
  250.  
  251.     while ( dest_x < end_x )
  252.     {                   /* for each bit in the line */
  253.         if ( (*ptr_source ^ invert) & bit )
  254.           vga_drawpixel(dest_x,dest_y);
  255.         dest_x++;
  256.         if ( (bit >>= 1) == 0 )
  257.         bit = 0x80, ptr_source++;
  258.     }
  259.  
  260.     dest_y++;
  261.     ptr_line += raster;
  262.     }
  263.     return 0;
  264. }
  265.  
  266.  
  267. /* Copy a color pixel map.  This is just like a bitmap, except that */
  268. /* each pixel takes 4 bits instead of 1 when device driver has color. */
  269. private int
  270. vgalib_copy_color(gx_device *dev, const byte *base, int sourcex,
  271.           int raster, gx_bitmap_id id, int x, int y,
  272.           int width, int height)
  273. {
  274.  
  275.     fit_copy(dev, base, sourcex, raster, id, x, y, width, height);
  276.  
  277.     if ( gx_device_has_color(dev) )
  278.     {                       /* color device, four bits per pixel */
  279.     const byte *line = base + (sourcex >> 1);
  280.     int dest_y = y, end_x = x + width;
  281.  
  282.     if ( width <= 0 )
  283.         return 0;
  284.     while ( height-- )
  285.     {                   /* for each line */
  286.         const byte *source = line;
  287.         register int dest_x = x;
  288.  
  289.         if ( sourcex & 1 )
  290.         {                   /* odd nibble first */
  291.         int color =  *source++ & 0xf;
  292.         vga_setcolor(color);
  293.         vga_drawpixel(dest_x,dest_y);
  294.         dest_x++;
  295.         }
  296.                        /* Now do full bytes */
  297.         while ( dest_x < end_x )
  298.         {
  299.         int color = *source >> 4;
  300.         vga_setcolor(color);
  301.         vga_drawpixel(dest_x,dest_y);
  302.         dest_x++;
  303.  
  304.         if ( dest_x < end_x )
  305.         {
  306.             color =  *source++ & 0xf;
  307.             vga_setcolor(color);
  308.             vga_drawpixel(dest_x,dest_y);
  309.             dest_x++;
  310.         }
  311.         }
  312.  
  313.         dest_y++;
  314.         line += raster;
  315.     }
  316.     }
  317.     else
  318.     {                  /* monochrome device: one bit per pixel */
  319.         /* bitmap is the same as bgi_copy_mono: one bit per pixel */
  320.     vgalib_copy_mono(dev, base, sourcex, raster, id, x, y, width, height,
  321.              (gx_color_index)0, (gx_color_index)7);
  322.     }
  323.  
  324.     return 0;
  325. }
  326.  
  327. /* Read bits back from the device. */
  328. private int
  329. vgalib_get_bits(gx_device *dev, int y, byte *data, byte **actual_data)
  330. {    int x;
  331.     byte *dest = data;
  332.     int b = 0;
  333.     int depth = dev->color_info.depth;    /* 1 or 4 */
  334.     int mask = (1 << depth) - 1;
  335.     int left = 8;
  336.  
  337.     if ( actual_data )
  338.       *actual_data = data;
  339.     for ( x = 0; x < dev->width; ++x )
  340.       { int color = vga_getpixel(x, y);
  341.  
  342.         if ( (left -= depth) < 0 )
  343.           *dest++ = b, b = 0, left += 8;
  344.         b += (color & mask) << left;
  345.       }
  346.     if ( left < 8 )
  347.       *dest = b;
  348.     return 0;
  349. }
  350.  
  351. /* Get/put the display mode parameter. */
  352. private int
  353. vgalib_get_params(gx_device *dev, gs_param_list *plist)
  354. {    int code = gx_default_get_params(dev, plist);
  355.     if ( code < 0 )
  356.       return code;
  357.     return param_write_int(plist, "DisplayMode", &vga_dev->display_mode);
  358. }
  359. private int
  360. vgalib_put_params(gx_device *dev, gs_param_list *plist)
  361. {    int ecode = 0;
  362.     int code;
  363.     int imode = vga_dev->display_mode;
  364.     const char _ds *param_name;
  365.  
  366.     switch ( code = param_read_int(plist, (param_name = "DisplayMode"), &imode) )
  367.       {
  368.       default:
  369.         ecode = code;
  370.         param_signal_error(plist, param_name, ecode);
  371.       case 0:
  372.       case 1:
  373.         break;
  374.       }
  375.  
  376.     if ( ecode < 0 )
  377.       return ecode;
  378.     code = gx_default_put_params(dev, plist);
  379.     if ( code < 0 )
  380.       return code;
  381.  
  382.     if ( imode != vga_dev->display_mode )
  383.       {    if ( dev->is_open )
  384.           gs_closedevice(dev);
  385.         vga_dev->display_mode = imode;
  386.       }
  387.  
  388.     return 0;
  389. }
  390.